#lang rosetta-racket


(provide simple-move
         union-move)


(define (simple-move)
  (lift
   (thunk "Moving a simple")
   (move (xyz 5 3 4) (sphere 1))))

(define (union-move)
  (lift
   (thunk "Moving a union non-intersecting shapes")
   (move (xyz 1 2 3)
         (union
          (move (xyz 5 2 4) (sphere 1))
          (move (xyz -5 2 4) (sphere 2))))))